home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 December / macformat-019.iso / Shareware City / Applications / LabHelper 4.01 Folder / LabHelper 4.01 / LabHelper 4.01.rsrc / LENS_136_RTF Text < prev    next >
Encoding:
Text File  |  1994-08-24  |  2.1 KB  |  58 lines
  1. ItemType: WIND
  2. Rect: 162,76,478,290
  3. Style: Windoid
  4. HasTitleBar: TRUE
  5. HasZoomBox: TRUE
  6. HasCloseBox: TRUE
  7. HasGrowBox: TRUE
  8. MinSize: 100,50
  9. MaxSize: 865,597
  10. Name: RTF Text
  11. TextSize: 12
  12. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬if objValue="Open" then¬  get licenseCheck()¬  wsSend wdID,"1","GetBGFieldText"¬  wsSend wdID,"2","GetBGFieldText"¬  ¬else if objValue="Close" then¬  put i1_Text of window wdName into editText¬  put i2_Text of window wdName into holdText¬  if editText ≠ holdText then¬    answer "Save changes before closing?" with "No" or "Yes"¬    if it is "Yes" then¬      wsSend wdID,"1","SetBGFieldText"¬      get wsGet(wdID,"1","Name")¬      send closeField to fld it¬    end if¬  end if¬  ¬else if objValue="Suspend" then ¬  ¬else if objValue="Resume" then ¬  ¬else if objValue="CloseBox" then ¬  ¬else if objValue="ZoomBox" then ¬  ¬else if objValue="GrowBox" then ¬  ¬else if objValue="TitleBar" then ¬  ¬end if¬¬--end windowEvent¬¬¬¬¬
  13. Params: i0_Name¬i1_Name¬i2_Name
  14.  
  15. ItemType: TEXT
  16. Rect: -1,-1,317,195
  17. TextFont: Geneva
  18. AutoSize: FALSE
  19. GrowItem: TRUE
  20. Name: theText
  21. WhiteColor: -13108,-1,-1
  22. Scrolling: TRUE
  23. StyleRun: 0,1;Geneva;9;Plain;0,0,0
  24. Selection: 0,32767
  25. Balloon: Text can be edited only when it is unlocked. Supports RTF (rich text format) in the display mode. Does not support RTF in the edit mode.
  26.  
  27. ItemType: TEXT
  28. Rect: 107,123,111,139
  29. TextFont: Geneva
  30. Visible: FALSE
  31. Name: theText Holding
  32. StyleRun: 0,1;Geneva;9;Plain;0,0,0
  33. Selection: 0,32767
  34.  
  35. ItemType: CHK
  36. Rect: 0,199,65,211
  37. TextFont: Geneva
  38. TextSize: 9
  39. Name: LockText
  40. Hilite: TRUE
  41. Balloon: Lock or unlock current display.
  42. Script: set i1_LockText of window wdName to objValue¬
  43.  
  44. ItemType: PUSH
  45. Rect: 190,197,270,213
  46. TextFont: Geneva
  47. TextSize: 9
  48. Name: OK
  49. AutoClose: TRUE
  50. Balloon: Click on this button to close the current window.
  51.  
  52. ItemType: PUSH
  53. Rect: 90,197,170,213
  54. TextFont: Geneva
  55. TextSize: 9
  56. Name: Save Now
  57. Balloon: Click on this button to save the contents of current window now.
  58. Script: wsSend wdID,"1","SetBGFieldText"¬wsSend wdID,"2","GetBGFieldText"¬get wsGet(wdID,"1","Name")¬send closeField to fld it